home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 12 / CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso / System / CDsupport / plaympeg < prev    next >
Text File  |  1997-04-30  |  1KB  |  33 lines
  1. /* Play a mpeg file using AmiPEG */
  2.  
  3. options results
  4. cr = '0a'x
  5.  
  6. if ~show('L','rexxdossupport.library') then
  7.     if ~addlib('rexxdossupport.library',0,-30) then exit
  8.  
  9. if ~show('L','rexxreqtools.library') then
  10.     if ~addlib('rexxreqtools.library',0,-30) then exit
  11.  
  12. parse arg mpegfile
  13.  
  14. cpu  =  rtezrequest('Which CPU do you have?'cr'(030 users select 020)','0_20|0_40|0_60','AmiPEG','rt_reqpos = reqpos_centerscr')
  15. mode =  rtezrequest('Are you using AGA, OCS or CyberGraphX?','_AGA|_OCS|_Cgfx','AmiPEG','rt_reqpos = reqpos_centerscr')
  16. if mode <2 then do
  17.     grey =  rtezrequest('Do you want colour or greyscale?','_Colour|_Greyscale','AmiPEG','rt_reqpos = reqpos_centerscr')
  18.     end
  19.  
  20. cmdstr = ':System/CDsupport/aMiPEG/bin/mpeg_play.'||word('060 020 040',cpu+1)
  21.  
  22. select
  23.     when mode = 2 then dither = 'ham6'
  24.     when mode = 1 & grey = 1 then dither = 'color'
  25.     when mode = 1 & grey = 0 then dither = 'gray'
  26.     when mode = 0 & grey = 1 then dither = 'cybergfx'
  27.     when mode = 0 & grey = 0 then dither = 'cybergfxgray'
  28.     otherwise exit
  29.     end
  30.  
  31. address command cmdstr 'QUIET DITHER='dither mpegfile
  32.  
  33.